Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

P=POSITION
If 0=P
Then F-Line A+15,B,A+19,B
F-Line A+19,B,A+20,B+5
F-Line A+21,B+5,A+21,B+7
F-Line A+21,B+7,A+21,B+5
F-Line A+22,B+5,A+22,B+2
F-Line A+21,B+1,A+21,B
F-Line A+22,B,A+25,B
F-Line A+25,B,A+25,B+4
F-Line A+24,B+5,A+22,B+10
F-Line A+22,B+10,A+21,B+18
F-Line A+21,B+18,A+23,B+20
F-Line A+24,B+21,A+24,B+26
F-Line A+24,B+26,A+22,B+27
F-Line A+22,B+27,A+20,B+27
F-Line A+19,B+26,A+19,B+24
F-Line A+18,B+24,A+18,B+21
F-Line A+19,B+20,A+20,B+18
F-Line A+20,B+17,A+20,B+15
F-Line A+15,B+1,A+16,B+2
F-Line A+16,B+2,A+17,B+5
F-Line A+17,B+6,A+20,B+9
F-Line A+20,B+9,A+20,B+12
V=777Text 30,40,"FOLIE 777"
StoPict 1
Return
IfEnd
Cls
RclPict 1
If P=1
Then F-Line A+20,B+15,A+18,B+13
F-Line A+13,B+11,A+17,B+15
F-Line A+14,B+12,A+5,B+21
F-Line A+16,B+14,A+7,B+23
F-Line A+7,B+23,A+5,B+23
F-Line A+5,B+23,A+5,B+21
F-Line A+20,B+13,A+17,B+12
F-Line A+16,B+12,A+17,B+13
PlotOn A+16,B+13
IfEnd
If P=2:Then F-Line A+19,B+13,A+16,B+13
F-Line A+19,B+15,A+16,B+15
PlotOn A+15,B+16
PlotOn A+15,B+12
IfEnd
If P=3:Then F-Line 20+A,B+15,A+16,B+15
F-Line A+16,B+16,A+9,B+23
F-Line A+9,B+23,A+9,B+24
F-Line A+8,B+25,A+7,B+25
F-Line A+6,B+24,A+6,B+23
F-Line A+7,22+B,A+8,B+22
F-Line A+8,B+22,A+15,B+15
F-Line A+15,B+14,A+19,B+13
IfEnd
If P=4:Then F-Line A+20,B+15,A+17,B+14
F-Line A+19,B+13,A+17,B+14
F-Line A+16,B+12,A+16,B+16
F-Line A+15,B+15,A+3,B+15
PlotOn A+2,B+14
F-Line A+3,B+13,A+15,B+13
IfEnd